10 PRINTCHR$(147)"VIC PRINT-SOUND" 20 GOSUB500 30 PRINT"SOUND IS NOW DEVICE 2" 40 CLOSE1:OPEN1,2:PRINT#1,"AEHMZLMZZZZZZ" 50 IFPEEK(983)>0THEN50 60 PRINT"A TUNE BY J.S. BACH" 70 PRINT#1,"FHJMKKOMMRQRMJFHJKMOMKJHJFEFH" 80 PRINT#1,"AEHKJHJFHJMKKOMMRQRMJFHJCMKJHFAFEF" 90 END 500 DATA76,194,3,76,132,3,141,219,3,152,72,165,154,201,2 510 DATA208,47,173,219,3,201,65,48,33,201,91,16,29,56,233 520 DATA65,168,185,220,3,172,215,3,192,255,240,249,172,217,3 530 DATA145,249,200,152,41,255,141,217,3,238,215,3,104,168,173 540 DATA219,3,24,96,104,168,173,219,3,76,122,242,72,152,72 550 DATA173,218,3,240,15,206,218,3,240,6,104,168,104,76,191 560 DATA234,169,0,240,27,173,215,3,240,241,172,216,3,177,249 570 DATA72,200,152,41,255,141,216,3,206,215,3,169,10,141,218 580 DATA3,104,141,10,144,141,11,144,141,12,144,24,144,207,120 590 DATA169,3,141,21,3,141,39,3,169,63,141,20,3,169,66 600 DATA141,38,3,88,96,0,0,0,0,0,183,187,191,195,199 610 DATA201,203,207,209,212,215,217,219,221,223,225,227,228,229 620 DATA231,232,233,235,236,237,0 630 FORI=828TO1013:READJ:POKEI,J:NEXTI 640 POKE36878,15:SYS828:RETURN